home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / TD Demo 8 Meg / TD Demo 8 Meg.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1995-06-05  |  691 b   |  30 lines
  1. on goToTheRightFileMan
  2.   repeat with x = 1 to 20
  3.     set fname to getNthFileNameInFolder(the pathName, x)
  4.     if fname starts "AA01." then
  5.       go(1, "aa01")
  6.       exit
  7.     end if
  8.   end repeat
  9.   if the machineType = 256 then
  10.     GetWindowsDemoROM()
  11.   else
  12.     go(1, "TD Demo:aa01")
  13.   end if
  14. end
  15.  
  16. on GetWindowsDemoROM
  17.   set tempLST to value(field "DriveLST.FLD")
  18.   repeat with DriveLetter in tempLST
  19.     repeat with x = 1 to 20
  20.       set fname to getNthFileNameInFolder(DriveLetter & ":\", x)
  21.       if fname starts "AA01." then
  22.         set the searchPath to [DriveLetter & ":\"]
  23.         go(1, DriveLetter & ":\aa01")
  24.         exit
  25.       end if
  26.     end repeat
  27.   end repeat
  28.   go(1, "aa01")
  29. end
  30.